home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / pascal / bp70lib.zip / GRAF2.DOC < prev    next >
Text File  |  1993-04-15  |  1KB  |  26 lines
  1. unit graf2;
  2.  
  3. interface
  4.  
  5.  
  6.  
  7. procedure editfile(x1,y1,x2,y2:integer; xoffset,yoffset,docwidth,
  8.                   doclength:longint; fore,bak,cursorcolor:integer;
  9.                   s:string; dosound:boolean);
  10.           { edits a file in an area x1 thru y2. xoffset and yoffset are
  11.            the initial offsets from top and left of document to top and
  12.            left of area in graf coords. fore,bak are editor colors.
  13.            cursorcolor is cursor color. s is file to edit. does sound
  14.            effects if dosound=true. esc exits editor. automatically
  15.            prompts for save on exit. up to 255 chars wide, unlimited
  16.            doc length! requires 64K heap space. }
  17. procedure showfile(x1,y1,x2,y2,fore,bak,cursorcolor:integer; s:string; edit,dosound:boolean);
  18.           { shows a file in a scrolling window (area x1 thru y2) in colors
  19.             fore,bak. s is file to show. if dosound=true, does sound effects.
  20.             if edit=true, calls editfile if window contents are clicked on.
  21.             cursorcolor is cursor color for editfile. }
  22.  
  23.  
  24. implementation
  25.  
  26.